[Pytanie] jak to odpalić?

[DroniC]

Witam.
Dostałem ostatnio skrypt, jednak nie umiem go odpalić, albo robię to źle. Proszę oto on:

 unit Senzuispalacz; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, Spin, ComCtrls, ColorGrd; 

type 
  TForm1 = class(TForm) 
    Label3: TLabel; 
    Label4: TLabel; 
    SpinEdit3: TSpinEdit; 
    Label5: TLabel; 
    Timer2: TTimer; 
    Button2: TButton; 
    Edit1: TEdit; 
    procedure Timer1Timer(Sender: TObject); 





    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 

    procedure Timer2Timer(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 

  private 
    { Private declarations } 
  public 
    { Public declarations } 
    
  end; 

var 
  Form1: TForm1; 
  mana,tragy,tragx,rozx,rozy: integer; 
  HookID: HHOOK; 
  hot: Boolean; 

type 
 PKbdDllHookStruct = ^TKbdDllHookStruct; 
 TKbdDllHookStruct = record 
 vkCode, 
 ScanCode, 
 Flags, 
 Time, 
 dwExtraInfo: Integer; 
 end; 

  const 
//adresy wartosci postaci 

WH_KEYBOARD_LL = 13; 
Player_Mana = $4A1224; 
Player_Hp = $4A1240; 
Player_id = $4A1244; 
BATTLELIST_START = $4A12A8+4; 
BATTLELIST_END = $4A6CD4; 
TragetID = $4A1214; 
selfx = $4abf48; 
selfy = $4abf44; 

Distance_ID= -4; 
Distance_Type = -1; 
Distance_Name= -0; 
Distance_X = 32; 
Distance_Y = 36; 
Distance_Z = 40; 
Distance_HorizScreenOffset = 44; 
Distance_VertScreenOffset = 48; 
Distance_Chameleon = 60; 
Distance_Chameleon2 = 92; 
Distance_IsWalking = 72; 
Distance_Direction = 76; 
Distance_Outfit = 92; 
Distance_OutfitHead = 96; 
Distance_OutfitBody = 100; 
Distance_OutfitLegs = 104; 
Distance_OutfitFeet = 108; 
Distance_OutfitAddon = 112; 
Distance_LightColor1 = 121; 
Distance_LightColor2 = 122; 
Distance_LightPattern = 123; 
Distance_BlackSquare = 128; 
Distance_HP = 132; 
Distance_WalkSpeed = 136; 
Distance_IsVisible = 140; 
Distance_Skull = 144; 
Distance_Party = 148; 

//koniec - adresy wartosci postaci 

implementation 

{$R *.dfm} 

function LLKeyHookFunc(HookCode: Integer; KeyCode: wParam; KStrokeInfo: lParam): LResult; stdcall; 
var 
 Struct: PKbdDllHookStruct; 
begin 
 Struct := Ptr(KStrokeInfo); 
if (HookCode >= 0) then 
begin 
 {Pojedyncza funkcja} 
if (Struct.vkCode = VK_SNAPSHOT) then begin 
hot:=true; 
end; 
end; 
{Uwaga! POPRAWIONE} 
Result := CallNextHookEx(HookID, HookCode, KeyCode, KStrokeInfo); 
end; 
procedure LockSystem; 
begin 
 HookID := SetWindowsHookEx (WH_KEYBOARD_LL, @LLKeyHookFunc, hInstance, 0); 
end; 

procedure UnLockSystem; 
begin 
 UnHookWindowsHookEx (HookID); 
end; 

procedure SendPacket(ProcessID: Cardinal; Packet: Pointer; Encrypt: Boolean; SafeArray: Boolean); stdcall; external 'packet.dll'; 
// Funkcje czytające 


function ReadMemInteger(Address: Cardinal): Cardinal;       //Read adress:value 
var 
ProcId: Cardinal; 
tProc: THandle; 
NBR: Cardinal; 
value:integer; 
begin 
    GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcId); 
    tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId); 
    ReadProcessMemory(tProc, Ptr(Address), @value, 4, NBR); 
    CloseHandle(tProc); 
    Result:=value; 
end; 


function MemReadString(Address: Integer): String; 
var 
NB : LongWord; 
Temp : ARRAY [1..255] OF Byte; 
I : Byte; 
IDProcess, proc_ID : Cardinal; 
begin 
GetWindowThreadProcessID(FindWindow('TibiaClient', nil), @proc_ID); 
IDProcess := OpenProcess(PROCESS_ALL_ACCESS, false, proc_ID); 
Result := ''; 
ReadProcessMemory(IDProcess, Ptr(Address), @Temp[1], 255, NB); 
for I := 1 to 255 do 
begin 
if ((Temp[I] = 0) or (Temp[I] = $0F)) then 
Break; 
Result := Result + Chr(Temp[I]); 
end; 
end; 
// Koniec - Funkcje czytające 
//MemReadString(BattleList_Start+pozycja*156+Distance_name 





procedure say(text:string); 
var 
  PacketBuffer: array [0..200] of byte; 
  ProcessID: Cardinal; 

begin 
    GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID);  //pobranie id procesu Tibii 

    PacketBuffer[0] := Byte(Length(text) + 4); //tu okreslana jest dlugosc pakietu bez 0 i 1 
    PacketBuffer[1] := $00; 
    PacketBuffer[2] := $96; 
    PacketBuffer[3] := $01; 
    PacketBuffer[4] := Byte(Length(text)); 
    PacketBuffer[5] := $00; 
    CopyMemory(@PacketBuffer[6], @text[1], Length(text)); 
    SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); // tu program wysyla pakiet do programu z proces id = ProcessID 
end; 


 procedure Fasol; 
var 
  PacketBuffer: array [0..200] of byte; 
  ProcessID: Cardinal; 

begin 
    GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID);  //pobranie id procesu Tibii 
PacketBuffer[0] := $0A; 
PacketBuffer[1] := $00; 
PacketBuffer[2] := $82; 
PacketBuffer[3] := $FF; 
PacketBuffer[4] := $FF; 
PacketBuffer[5] := $40; 
PacketBuffer[6] := $00; 
PacketBuffer[7] := $00; 
PacketBuffer[8] := $0F; 
PacketBuffer[9] := $0E; 
PacketBuffer[10] := $00; 
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE); 
sleep(2100); 
end; 



    procedure TForm1.Timer1Timer(Sender: TObject); 

begin 

begin 

   Fasol; 
  end; 
   end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
UnlockSystem; 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
UnlockSystem; 
end; 

procedure TForm1.Timer2Timer(Sender: TObject); 
var hp:integer; 
begin 
hp:=readmeminteger(player_Hp); 

  if hp < spinedit3.Value then 
  begin 
  say(edit1.Text); 
  sleep(1000); 
  end; 


   end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
If (Button2.Caption = 'Start') then 
begin 
timer2.Enabled := True; 
Button2.Caption := 'Stop'; 
end 
Else 
if (Button2.Caption = 'Stop') then 
begin 
timer2.Enabled := False; 
Button2.Caption := 'Start'; 
end; 
end; 

end.

działa on wam?

[Vesim]

Dostałeś? Raczej skopiowałes z pewnego forum, na 99% są złe adresy.

[DroniC]

Tak, typ umieścił to na forum. mówił, że działa itp Ja tego jakoś uruchomić nie mogę. Wam to działa?

[HrabiaMarkiz]

Tak, typ umieścił to na forum. mówił, że działa itp Ja tego jakoś uruchomić nie mogę. Wam to działa?

Widzę napisy "Tibia" czyli pewnie to jakis keylogger i czeka jak taka osoba jak ty skompiluje i kliknie i bedzie mial twoje passy...

[Sopelek997]

Widzę napisy "Tibia" czyli pewnie to jakis keylogger i czeka jak taka osoba jak ty skompiluje i kliknie i bedzie mial twoje passy...

to nie wygląda na keyloggera

[DroniC]

nie, to nie jest keylogger. jak to mogę uruchomić?

[Sopelek997]

musisz skompilować, pobierz jakiś kompilator do delphi i skompiluj

[DroniC]

co zrobić ? co to kompilator?

[Gość]

Niee to nie key, jak dobrze widze to jest WH + teleportowanie postaci

Ale kurcze coś mi się wydaje że ten kodzik jest ucięty bo troszkę nie jasne jest na starcie ;d i wgl to wpierw wybierz Form1 i kliknij na Form1 dwukrotnie tak aby otworzyła się możliwość pisania kodu do Form1 i potem wklej ten kodzik i potem otwórz znowu to form1 bo będzie obok zakładka i dodaj 2 buttony itd a jak wywali błędem po przejściu to wpierw stwórz 2 buttony, time, label edit, spinedit ale z tego co czytam to dwukrotnie to stwórz ;d i potem wklej ten kodzik i kompiluj jak się nie pomyliłem to będzie wszystko okej.

Pozdrawiam.

[DroniC]

hm. wywala, że jakiś packet.dll trzeba. Tak powinno być ?

[Sopelek997]

tak, musisz go gdzieś znaleźć i pobrać, bez niego nie ruszy

[Gość]

hm. wywala, że jakiś packet.dll trzeba. Tak powinno być ?

 

No i gitarka :3 jak sobie poradzisz z tym daj znać

[DroniC]

Pobrałem z tej strony:

http://www.dll-files.com/dllindex/dll-files.shtml?packet

Jednak dalej mi sapie, że go potrzebuje Gdzie go wkleić ? Wkleiłem do windows/system32

[Vesim]

Do folderu z programem, i na 99% to nie ten plik, powodzenia w szukaniu.